Left Termination of the query pattern
kay4(g)
w.r.t. the given Prolog program could successfully be proven:

(0) Obligation:

Clauses:

kay4(I) :- ','(length(.(X1, .(X2, L)), I), ','(top(L), ','(mid([], L), bot(L)))).
top(L) :- ','(write(a), ','(mwrite('-', L), ','(write(b), nl))).
bot(L) :- ','(write(c), ','(mwrite('-', L), ','(write(d), nl))).
mid(X, []).
mid(X, .(X3, [])) :- ','(write('|'), ','(mwrite(' ', X), ','(write('X'), ','(mwrite(' ', X), ','(write('|'), nl))))).
mid(X, .(X4, .(X5, Y))) :- ','(write('|'), ','(mwrite(' ', X), ','(write('\\'), ','(mwrite(' ', Y), ','(write('/'), ','(mwrite(' ', X), ','(write('|'), ','(nl, ','(mid(.(X6, X), Y), ','(write('|'), ','(mwrite(' ', X), ','(write('/'), ','(mwrite(' ', Y), ','(write('\\'), ','(mwrite(' ', X), ','(write('|'), nl)))))))))))))))).
mwrite(Char, L) :- findall(X7, ','(member(X8, L), write(Char)), X9).
member(X, .(X, X10)).
member(X, .(X11, Xs)) :- member(X, Xs).

Query: kay4(g)

(1) PrologToPrologProblemTransformerProof (SOUND transformation)

Built Prolog problem from termination graph ICLP10.

digraph dp_graph {
node [outthreshold=100, inthreshold=100];
1 [label="1: kay4(T1)\n\nT1 is ground", fontsize=16, style=filled, fillcolor=lightyellow, color=red];
2 [label="2: kay4(T1), SCOPE: 1, CLAUSE: 0\n\nT1 is ground", fontsize=16, style=filled, fillcolor=lightyellow];
3 [label="3: ','(length(.(X14, .(X15, X16)), T3), ','(top(X16), ','(mid([], X16), bot(X16))))\n\nT3 is ground\nX14 is free\nX15 is free\nX16 is free", fontsize=16, style=filled, fillcolor=lightyellow];
4 [label="4: \n\n", fontsize=16, style=filled, fillcolor=lightyellow];
5 [label="CASE", fontsize=14, style = filled, fillcolor = lightcyan];
1 -> 5 [arrowhead = none ];
5 -> 2;

6 [label="ONLY EVAL with clause\nkay4(X13) :- ','(length(.(X14, .(X15, X16)), X13), ','(top(X16), ','(mid([], X16), bot(X16)))).\nand substitutionT1 -> T3,\nX13 -> T3", fontsize=14, style = filled, fillcolor = lightblue];
2 -> 6 [arrowhead = none ];
6 -> 3;

7 [label="UNDEFINED ERROR", fontsize=14, style = filled, fillcolor = lightgreen];
3 -> 7 [arrowhead = none ];
7 -> 4;

}

(2) TRUE